Cleaned up language pragmas

Author: ameingast

src/Database/PostgreSQL/Simple/Migration.hs

@@ -12,8 +12,8 @@
 -- For usage, see Readme.markdown.
 
 {-# LANGUAGE CPP               #-}
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Database.PostgreSQL.Simple.Migration
     (
@@ -168,7 +168,7 @@ executeValidation con verbose cmd = case cmd of
                     return (MigrationError $ "Checksum mismatch: " ++ name)
 
         goScripts _ [] = return MigrationSuccess
-        goScripts path (x:xs) = do
+        goScripts path (x:xs) =
             (validate x =<< BS.readFile (path ++ "/" ++ x)) >>= \case
                 e@(MigrationError _) ->
                     return e

src/Database/PostgreSQL/Simple/Util.hs

@@ -10,8 +10,8 @@
 -- A collection of utilites for database migrations.
 
 {-# LANGUAGE CPP               #-}
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Database.PostgreSQL.Simple.Util
     ( existsTable

src/Main.hs

@@ -10,8 +10,8 @@
 -- A standalone program for the postgresql-simple-migration library.
 
 {-# LANGUAGE CPP               #-}
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Main (
     main
@@ -83,10 +83,10 @@ run (Just cmd) verbose =
                 (MigrationValidation (MigrationDirectory dir)) verbose con
 
 parseCommand :: [String] -> Maybe Command
-parseCommand ("init":url:_) = Just (Initialize url)
-parseCommand ("migrate":url:dir:_) = Just (Migrate url dir)
+parseCommand ("init":url:_)         = Just (Initialize url)
+parseCommand ("migrate":url:dir:_)  = Just (Migrate url dir)
 parseCommand ("validate":url:dir:_) = Just (Validate url dir)
-parseCommand _ = Nothing
+parseCommand _                      = Nothing
 
 printUsage :: IO ()
 printUsage = do

test/Database/PostgreSQL/Simple/MigrationTest.hs

@@ -9,9 +9,9 @@
 --
 -- A collection of postgresql-simple-migration specifications.
 
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE CPP               #-}
 {-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Database.PostgreSQL.Simple.MigrationTest where
 

test/Main.hs

@@ -9,9 +9,9 @@
 --
 -- The test entry-point for postgresql-simple-migration.
 
-{-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE CPP               #-}
 {-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Main
     ( main