From f4b8c0df041b063c0b47d2ec6c818a9c202fd833 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 15 Apr 2020 09:54:10 -0700
Subject: Re-namespacing

Moving away from the DNS-driven namespacing toward more condensed names,
mostly because I don't like typing so much.
---
 Com/MusicMeetsComics/Database.hs | 41 ----------------------------------------
 1 file changed, 41 deletions(-)
 delete mode 100644 Com/MusicMeetsComics/Database.hs

(limited to 'Com/MusicMeetsComics/Database.hs')

diff --git a/Com/MusicMeetsComics/Database.hs b/Com/MusicMeetsComics/Database.hs
deleted file mode 100644
index c5a0068..0000000
--- a/Com/MusicMeetsComics/Database.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-module Com.MusicMeetsComics.Database
-  ( ComicDB
-  , getComics
-  , load
-  , dummy
-  )
-where
-
-import           Com.MusicMeetsComics.App
-import           Data.Map                       ( Map )
-import qualified Data.Map                      as Map
-import           Dhall
-import           Protolude
-import           Servant                        ( Handler )
-
-type ComicDB = (Map ComicId Comic)
-
-instance Interpret Comic
-
-load :: IO ComicDB
-load = listToComicDB <$> input auto "./comic-database.dhall"
-
-dummy :: IO ComicDB
-dummy = return $ listToComicDB
-  [ Comic { comicId          = "ComicId"
-          , comicPages       = 10
-          , comicName        = "Dummy comic"
-          , comicIssue       = "dummy issue"
-          , comicDescription = "Lorem ipsum"
-          }
-  ]
-
-listToComicDB :: [Comic] -> ComicDB
-listToComicDB ls = Map.fromList $ (,) <$> comicId <*> identity <$> ls
-
-getComics :: ComicDB -> Handler [Comic]
-getComics db = return $ Map.elems db
-- 
cgit v1.2.3