~ Fix wall suggestions.

1 files changed, 3 insertions, 1 deletions

diff --git a/exsamples/Main.hs b/exsamples/Main.hs
index 88796642..a094b87a 100644
--- a/exsamples/Main.hs
+++ b/exsamples/Main.hs
@@ -1,4 +1,5 @@
-{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE ViewPatterns  #-}
+{-# LANGUAGE PatternGuards #-}
 module Main (main) where
 
 import Control.Concurrent
@@ -8,6 +9,7 @@ import System.Environment
 import Control.Monad.Reader
 import Data.IORef
 
+
 main :: IO ()
 main = do
   [path] <- getArgs