Use stack and upgrade to GHC 7.10

Author: 3noch

.gitignore

@@ -5,4 +5,4 @@
 dist/
 cabal.sandbox.config
 .cabal-sandbox/
-
+.stack-work/

README.md

@@ -30,23 +30,13 @@ For example, if you specify two columns but your data has three, then
 Building
 --------
 
-You must have
-
-  * [Glasgow Haskell Compiler](http://www.haskell.org/ghc/)
-  * [Cabal](http://www.haskell.org/cabal/) (which comes with the [Haskell Platform](http://www.haskell.org/platform/))
-
-Then you can
-
-```bash
-$ cd log2sql
-$ cabal install
-```
+Install [stack](https://github.com/commercialhaskell/stack) and run `stack setup && stack build`.
 
 
 License
 -------
 
-Copyright © Covenant Eyes 2014
+Copyright © Covenant Eyes 2015
 
 This package is licensed under the [MIT license](http://opensource.org/licenses/mit-license.php)
 (see `LICENSE`).

log2sql.cabal

@@ -1,24 +1,25 @@
--- Initial log2sql.cabal generated by cabal init.  For further 
+-- Initial log2sql.cabal generated by cabal init.  For further
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                log2sql
-version:             0.2.1.0
+version:             0.2.1.1
 synopsis:            Places program logs into SQL for better querying
--- description:         
+-- description:
 license:             MIT
 license-file:        LICENSE
 author:              Elliot Cameron
 maintainer:          [email protected]
 copyright:           Covenant Eyes 2014
 category:            Development
 build-type:          Simple
--- extra-source-files:  
+-- extra-source-files:
 cabal-version:       >=1.10
 
 executable log2sql
   main-is:             Main.hs
-  -- other-modules:       
-  -- other-extensions:    
+  other-modules:       Converter
+
+  -- other-extensions:
   build-depends:       base >=4.6 && <5,
                        filepath,
                        optparse-applicative,
@@ -27,4 +28,3 @@ executable log2sql
   hs-source-dirs:      src
   default-language:    Haskell2010
   ghc-options:         -O2
-

src/Converter.hs

@@ -53,7 +53,7 @@ runWith (Options name outf fields delim) xs = withConnection fileName $ \c -> do
   where
       fileName = T.unpack outf
       tableName = name `enclosedBy` "\""
- 
+
       createQuery = toQ $ "CREATE TABLE IF NOT EXISTS " <> tableName <> " " <> columnDef
 
       columnDef = "(id INTEGER PRIMARY KEY, " <> T.intercalate ", " (sqlColumn <$> fields) <> ")"
@@ -67,8 +67,7 @@ runWith (Options name outf fields delim) xs = withConnection fileName $ \c -> do
 
       parseLine :: Text -> [Text]
       parseLine x = clean <$> limitedSplitOn (length fields) delim x
-        where clean = T.dropAround (`elem` " \"'")
+        where clean = T.dropAround (`elem` (" \"'" :: String))
 
       handleError :: Int -> FormatError -> IO ()
       handleError idx e = hPutStrLn stderr $ "Error on line " ++ show idx ++ ": " ++ show e
-

stack.yaml

@@ -0,0 +1,3 @@
+packages:
+- '.'
+resolver: lts-3.4