Update DomainReasoner.hs

Consider exercise aliases for looking up feedback script
ideas-edu · Oct 29, 2019 · 9f1226d · 9f1226d
1 parent d12c63a
commit 9f1226d
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Ideas/Service/DomainReasoner.hs b/src/Ideas/Service/DomainReasoner.hs
@@ -111,5 +111,7 @@ findService dr a
    single _    = fail $ "Ambiguous service " ++ showId a
 
 defaultScript :: DomainReasoner -> Id -> IO Script
-defaultScript dr =
-   maybe (return mempty) parseScriptSafe . (`lookup` scripts dr)
+defaultScript dr n =
+   maybe (return mempty) parseScriptSafe (realName `lookup` scripts dr)
+ where
+   realName = fromMaybe n (lookup n (aliases dr))