Commits

Luke Plant committed a7d7f00

Sorted import lines

Comments (0)

Files changed (6)

 module Blog.DB where
 
 import Database.HDBC
-import Database.HDBC.Sqlite3 (connectSqlite3 {-, setBusyTimeout-})
-import qualified Blog.Settings  as Settings
+import Database.HDBC.Sqlite3 (connectSqlite3)
 import List
+import qualified Blog.Settings as Settings
 
 connect = connectSqlite3 Settings.sqlite_path
 
 
 rawhtml = 1 :: Int
 plaintext = 2 :: Int
-
 {-# OPTIONS_GHC -fbang-patterns  #-}
 module Blog.Utils where
 
+import Data.Char
+import System.Environment(getArgs)
+import Text.Regex.Base
+import Text.Regex.PCRE
 import qualified Data.ByteString.Char8 as B
-import System.Environment(getArgs)
-import Text.Regex.PCRE
-import Text.Regex.Base
-import Data.Char
 
 regexReplace !re !rep !source = go source []
  where go str res =

src/Blog/settingslive.hs

 module Blog.Settings where
 
-sqlite_path="/home/lukeplantuk/public_html/cgi-bin/data/test1.db"
+sqlite_path = "/home/lukeplantuk/public_html/cgi-bin/data/test1.db"
 
-
 import Control.Exception
 import Control.Monad
 import Database.HDBC
-
 import qualified Blog.DB as DB
 
 main :: IO ()
-import qualified Data.ByteString.Char8 as B
-import qualified Data.ByteString.Lazy.UTF8 as UTF8
-import qualified Data.ByteString.Lazy as BL
+import Blog.Utils (regexReplace)
+import Data.Maybe (fromJust)
+import Data.Ord (comparing)
+import Database.HDBC
+import GHC.Unicode (toLower)
+import List (sortBy, intersperse)
+import Monad (liftM)
+import Text.Template (readTemplate, renderToFile)
 import qualified Blog.Category as C
+import qualified Blog.DB as DB
+import qualified Blog.Formats as Formats
 import qualified Blog.Post as P
 import qualified Blog.Settings as Settings
-import qualified Blog.DB as DB
-import qualified Blog.Formats as Formats
-import Database.HDBC
-import List (sortBy, intersperse)
+import qualified Data.ByteString.Char8 as B
+import qualified Data.ByteString.Lazy as BL
+import qualified Data.ByteString.Lazy.UTF8 as UTF8
 import qualified Data.Map as Map
-import Data.Maybe (fromJust)
-import Data.Ord (comparing)
-import GHC.Unicode (toLower)
-import Monad (liftM)
-import Text.Template (readTemplate, renderToFile)
-import Blog.Utils (regexReplace)
 -- Migration script for the old data
 
 -- Misc utilities