thinklight setUserID

1 files changed, 3 insertions, 1 deletions

diff --git a/custom/thinklight.nix b/custom/thinklight.nix
index 87a5264e..bd0fd6d9 100644
--- a/custom/thinklight.nix
+++ b/custom/thinklight.nix
@@ -2,7 +2,7 @@
 
 stdenv.mkDerivation {
   name = "thinklight-0.1";
-  ghc = haskellPackages.ghcWithPackages (self: [self.strict]);
+  ghc = haskellPackages.ghcWithPackages (self: [self.strict self.unix]);
   outputs = [ "out" ];
   buildInputs = [ makeWrapper ];
   builder = builtins.toFile "builder.sh" ''
@@ -21,6 +21,7 @@ stdenv.mkDerivation {
     import Prelude hiding (readFile)
     import Data.List (intersperse)
     import Data.Maybe (fromMaybe)
+    import System.Unix.User (setUserID)
     
     data Mode = On | Off | Toggle | Blink deriving (Read, Show, Eq)
     
@@ -28,6 +29,7 @@ stdenv.mkDerivation {
     main = do
             args <- getArgs
             let mode = if length args >= 1 then read $ head args else Toggle
+            setUserID 0
             sequence $ map (\g -> catchIOError g (\e -> if isDoesNotExistError e then return () else ioError e)) [thinklight mode]
             return ()