From 265951e087809e8a45802bc00349d198f3515b19 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 15 Sep 2022 17:45:53 +1000 Subject: [server] rendering some templates within infobox also adjusted the parsers to not have overlapping skipspace --- src/Servall/Types.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Servall/Types.hs') diff --git a/src/Servall/Types.hs b/src/Servall/Types.hs index ae4f73a..2c49532 100644 --- a/src/Servall/Types.hs +++ b/src/Servall/Types.hs @@ -9,14 +9,13 @@ import Data.Aeson ( (.:) , Value(..) , object ) -import qualified Data.HashMap.Lazy as HM import Data.Text ( Text ) import GHC.Generics ( Generic ) data WikiTemplate = WikiTemplate - { wtName :: Text + { wtName :: Text -- , wtSubName :: Maybe Text - , wtFields :: HM.HashMap Text Text + , wtArgs :: [(Maybe Text, Text)] } deriving Show -- cgit v1.2.3