1 files changed, 2 insertions, 3 deletions

diff --git a/Handler/List.hs b/Handler/List.hs
index e28bb16..522f6f5 100644
--- a/Handler/List.hs
+++ b/Handler/List.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE PatternGuards #-}
+
 module Handler.List where
 
 import Import
@@ -5,14 +7,11 @@ import Import
 import Data.Set (Set)
 import qualified Data.Set as Set
 
-import Data.Map (Map)
 import qualified Data.Map as Map
 
 import qualified Data.Text as Text
 import qualified Data.Text.Lazy as Lazy.Text
 
-import Database.Persist.Sql (Single(..), rawSql)
-
 import Thermoprint.Client
 
 list :: Handler (Set (WithType Text))