From b6772a175b3c05d6a2dfb299f76da264ac3ad54e Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 28 Jun 2018 09:09:11 +0200
Subject: [PATCH] Make submission ids lower case

---
 src/CryptoID.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/CryptoID.hs b/src/CryptoID.hs
index 6b69e0d5f..28fb616d1 100644
--- a/src/CryptoID.hs
+++ b/src/CryptoID.hs
@@ -39,7 +39,7 @@ instance PathPiece UUID where
 
 instance (CI.FoldCase s, PathPiece s) => PathPiece (CI s) where
   fromPathPiece = fmap CI.mk . fromPathPiece
-  toPathPiece = toPathPiece . CI.original
+  toPathPiece = toPathPiece . CI.foldedCase
 
 instance {-# OVERLAPS #-} PathMultiPiece FilePath where
   fromPathMultiPiece = Just . unpack . intercalate "/"
@@ -47,7 +47,7 @@ instance {-# OVERLAPS #-} PathMultiPiece FilePath where
   
 instance (CI.FoldCase s, PathMultiPiece s) => PathMultiPiece (CI s) where
   fromPathMultiPiece = fmap CI.mk . fromPathMultiPiece
-  toPathMultiPiece = toPathMultiPiece . CI.original
+  toPathMultiPiece = toPathMultiPiece . CI.foldedCase
 
 
 -- Generates CryptoUUID... and CryptoFileName... Datatypes