X-Git-Url: http://gitweb.michael.orlitzky.com/?p=mailbox-count.git;a=blobdiff_plain;f=src%2FReport.hs;h=96c3150bcc10e0fe8060fbcf43c8a1d5c15fe739;hp=f1ec9ddd3ae6426121ee685957ad7b5ca899b8e0;hb=1585e5bef7e46666a8f026a00884323c9834565b;hpb=17ce59153f9b7aef917bb4395cf8fb992a6f738c diff --git a/src/Report.hs b/src/Report.hs index f1ec9dd..96c3150 100644 --- a/src/Report.hs +++ b/src/Report.hs @@ -15,11 +15,11 @@ import Database.HDBC ( safeFromSql, quickQuery ) import Database.HDBC.Sqlite3 ( connectSqlite3 ) -import System.Console.CmdArgs.Default ( Default(..) ) +import System.Console.CmdArgs.Default ( Default( def ) ) import Test.Tasty ( TestTree, testGroup ) import Test.Tasty.HUnit ( (@?=), testCase ) -import Configuration ( Configuration(..) ) +import Configuration ( Configuration( detail, detail_query, summary_query ) ) -- Type synonyms to make the signatures below a little more clear. type Domain = String